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$8 F SBEGIN RMSOUPDAT,000,RM$RMS,<DISPATCH FOR UPDATE OPERATION> 
0000 ¢ 4 SueneNnerenonENTneennneeserereeesennencenerteesenesnonesceseenereeeenosees 
3* * | 
$60 6 ;* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY + 
000 7 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ‘ 
4 8 = ALL RIGHTS RESERVED. * 
é ® 
444 10 ;* THIS SOFTWARE IS eye eee UNDER A LICENSE AND MAY BE USED AND gt ht * | 
000 11 ;* ONLY IN oe DANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
B88 1 3* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
00 15 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 14 ;* SON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
444 1? :* TRANSFERRED. * 
3 ® 
444 i 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
BBR i :* CORPORATION. 4 
4 a 
0000 21 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR ons OF ITS * 
0000 $$ 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 
0000 23 ;* * 
0000 24 3 * 
i464 $ FERRARA AEE AERAE TEAR EAA eee 
0000 27 ++ 
0000 28 : Facility: rms32 
0000 29; 
0000 30 ; Abstract: 
0000 a1 8 this routine is the highest level control 
0000 32 : routine to perform the $update function. 
0000 33 3 
0000 $e: 3 
0000 5 : : 
0000 36 : Environment: 
9444 3, ; star processor running starlet exec. 
9000 39 : Author: L F LAVERDURE, Creation Date: 3-FEB-1977 
0000 41 Modified By: 
0000 r : 
0000 43 ; V03-007 JwT0141 eague 11-Nov-1983 | 
44 rt: : Change IFB$V _RUM te Ife V_ONLY_RU | 
0000 46 ; v03-006 ROL 0005 ter Lieberwirth 26-Jul-1983 
4 $2 : T jnling, tell RJR this is an UPDATE. 
0000 49 v03-005 Ve th _ Peter Lieberwirth 24-Jul-1983 | 
444 29 : If AT journaling, get RAB data that describes user's request. 
0000 26 3 : v03-004 KPLO0001 Peter Lieberwirth 20-Jun-1983 
B00 27 ; Change some references to JNLFLG to JNLFLG2. | 
9000 55 v03-003 TMK0001 Todd 27-Dec-1982 | 
000 56; Do not turn of the TRBSV. “PIN ND LAST flag within RMSRSET. This 
0000 57: flag will be turned off within the routines for the individual 
| 
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file organizations. 


v03-002 ne ye 


frey W. Horn 8-Dec-1982 


Jef 
on't allow SUPDATE if not in recovery unit and RU only 
moeettied for file. 


V03-001 KBT0196 


Keith B. Thompson 23-Aug-1982 


Reorganize psects 


VO2-004 REFORMAT 


D M WALP 25-JUL-1980 
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Include Files: 
$ 
$ 
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Equated Symbols: 
; Own Storage: 
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RMSOUPDAT DISPATCH FOR UP 1:34:1 AX/VMS Macro V04-00 Page 
batt RMSSUPDATE = COMMON SUPDATE SETUP AND DI -SEP-1984 tf 5:3 RMS.SRCJRMSOUPDAT.MAR; 1 . 
4 4 ~SBTTL RMSSUPDATE = COMMON SUPDATE SETUP AND DISPATCH ROUTINE 
000 38 p++ 
0 100 ; RMSSUPDATE 
000 101; 
000 19 : RMSSUPDATE = this routine performs common rab function setup followed 
0000 7 ; by dispatch to organization-dependent $update code 
00 105 : Calling sequence: 
0000 106 ; — 
0000 107 ; entered from exec as a result of user's calling sys$update 
8888 198 : (e.g., by using the Supdate macro) 
0000 110 ; Input Parameters: 
0000 111; 
0000 16 ; ap user's argument List addr 
8006 118: Implicit I 
3: Implic nputs: 
0000 115; 
st 118 3 the contents of the rab and related irab and ifab. 
0000 118 ; Output Parameters: 
0000 119; 
0000 120; ri destroyed 
0000 1s] : r0 status code 
0000. «(1 ¢ 8 oye 
0000 123 ; Implicit Outputs: 
0000 124; - 
0000 125; various fields of the rab are filled in to reflect 
0000 126; the status of the $update operation. (see rms functional 
0000 127 ; spec for a complete List.) 
0000 128 ; 
0000 \¢ : the irab is similarly updated. 
0000 130; 
44 13) F a completion ast is queued if specified in the user arglist. 
0000 =«(1 : ; Completion Codes: 
0000 134; 
0000 135; standard rms (see functional spec for List). 
0000 136; | 
4 137 ; Side Effects: 
000 138 $ 
0000 139; none 
$000 14). x= 
44 126 SENTRY RMSSUPDATE 
B88 14 STSTPT UPDAT 
94 144 SRABSET FAC=IFBSV_UPD ; do common setup 
OOA 145 
OOA 166 ; 
OA 147 ; returns to user on error 
ane 
OE OOAO CA 69 E1 SOA 150 BBC #1FBSV_ONLY_RU, IFBSB sm PL State 10$ 3; branch if not RU only 
08 0OA2 CA 02 «£0 0010 151 BBS #IFBSVRUP, TFBSB_JNLFLG2(R10) , 108 > branch if in RU 
16 12 RMSERR NRU 
FFE2* 31 18 (1 BRW RMSEXRMS 
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mw 


If AT journaling, get some information from RAB. 


BBC #IFBSV_AT, pif6Se. JNLFLG(R10) qos ; skip if not AT jnling 
MOVL  #RJRS_OPDATE,R1~ ; his is UPDATE 
JSB RMSAT~ ~COM ARAB ; get RAB data into RUR 


09 OOAO CA 
00000000' 


; dispatch to org-dependent code 


SE‘ TYPE=B, SRC=IFB$B_ORGCASE(R10),- 
SPLIST=<RMSUPDATE 1, RMSUPDATE2 .RMSUPDATE 3> 
NE $$RM UGCHK 


U 
-¢ 
? 
5 
5 
5 
6 
é 
é 
s 
6 
o 
6 
é 
é 
6 
7 STESTESSRMS_TB 
7 RMSE RG 
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Symbol table ets 5:38:39 LRMS. SRCIRMSOUPDAT_MAR: 1 ° Rs} S} 
$$.PSECT_EP = 00000000 | F/ 
SSRMSTEST = 00 8 1A Fi 
SSRMS_PBUGCHK = 00000010 Fi 
SSRMS_TBUGCHK = 44 8 Fi 
SSRMS_UMODE = Re 4 Fi 
FBSB_JNLFLG = OOO Ag Fi 
IFBSB~JNLFLG2 = 000000A¢ | Fi 
1FB$B_ORGCASE = esi T4 Fi 
“AT = 444 4 F/ 
FBSV_ONLY_RU = 0000000 Fi 
RUP = 0000000 Fi 
—UPD = 0000000 Fi 
IO$A_ TRACE eketeree x 01 F/ 
RJR$_OPDATE = 0000001C Fi 
RMSAT_COM_RAB teeeeeeer X01 Fi 
RMSERRORG kkkkteee x 01 Fi 
RMSEXRMS kekeekene x 01 Fi 
RMSRSE ekekeeee x 01 Fi 
RMSUPDATE1 eeeeenee KX 0] Fi 
RMSUPDATE2 etekenee x 01 Fi 
RMSUPDATES eekereee x 01 Fi 
RMSSUPDATE = FFFFFFFE RG 01 Fi 
RMS$_NRU = 000187FC Fi 
TPTSC_UPDATE eeeeeeee =X 01 4 
$e wer weer ern mr ecw n nen + Fi 
! Psect synopsis ! Fi 
teow wow een nnne 4 
PSECT name Allocation PSECT No. Attributes ¥ 
00000000 ( 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE Fi 
0000003B (¢ sy.) 87 € 4.3 PIC USR CON REL GBL NOSHR EXE RD Fi 
00000000 <( 0.) O02 ¢ 2.) NOPIC USR CON’ ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
gee ene eee wn eee erence ecooe eee es + 
! Performance indicators : 
tow ew eee ee wm ewe eee eee meee = 


Page faults CPU Time Lapsed Time 


NOWRT NOVEC BYTE 


Initialization 29 00:00: 9.08 90:00:0) 18 
Command processing MI 0:00: g-f3 Bh bo te cos 
ass Hy $ e : : ° 
oy bende SBR SE 
ss 2:00:01. :00:02. 
Symbol table output 4 00:00:00.04 00:00:00.0¢ 
Psect synopsis output ; 00: + -03 0:00:00.03 
Cross-reference output 00:00:00.00 806: 58 o> 
Assembler run totals 414 00:00:08.06 0:00:26.2 


The working set Limit was 1350 pages. ‘ 
28944 bytes (57 pages) of virtual memory were used to buffer the intermediate code. 
There were 30 pages of symbol table space ot eeetee to hold 583 non-local ane 4 local symbols. 
source lines were read in Pass 1, producing 15 object records in Pass 2. 
18 pages of virtual memory were used to define 17 macros. 
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VAX=-11 Macro Run Statistics 
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Seer eer ese SMe en eee eam oem wat 


Macro library name Macros defined 

-$ SS$DUA 8:CRMS.OBJ 4 * “TH 1 S 
$255$0UA28:(5YS.08/JLIB.MLB;:1 1 

“$255$DUA28: SYSLIBISTARLET MLB; 2 ; 

TOTALS (all Libraries) 1 


696 GETS were required to define 13 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RMSOUPDAT/OBJ=OBJ$:RMSOUPDAT MSRCS:RMSOUPDAT/UPDATE=(ENH$:RMSOUPDAT) +EXECML$/LIB+LIB$:RMS/LIB 
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